home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / Think C interface / loader.h < prev    next >
Encoding:
Text File  |  1994-09-12  |  293 b   |  16 lines  |  [TEXT/KAHL]
  1. int myEqualString(unsigned char x[], unsigned char y[])
  2. {
  3.     if (x[0] != y[0])
  4.         return(0);
  5.     else {
  6.         int i;
  7.         for(i=1; i<=x[0]; i++)
  8.             if (x[i] != y[i])
  9.                 return(0);
  10.         return(1);
  11.     }
  12. }
  13.  
  14. #define EXPORT(n,x,y) { if (myEqualString(n,y)) RETURN_A0(&x); }
  15. #define LOADER_ERROR() RETURN_A0(0L);
  16.